﻿Imports HensonOnline

Partial Class users_messages_readMessage
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim messageId As Integer = Request.QueryString("MessageID")
        'Dim messageAdapter As New MainDbTableAdapters.MessagesTableAdapter()

        'repMessage.DataSource = messageAdapter.GetMessageByID(User.Identity.Name, messageId)
        'repMessage.DataBind()


        Dim message As New Messages()
        message.GetMessage(User.Identity.Name, messageId)

        messageSubject.InnerText = message.Subject()
        from.InnerText = fn.GetUserName(message.FromId)
        [date].InnerText = message.MessageDate
        messageText.InnerText = message.Message

        'repMessage.DataSource = messsage.GetMessage(User.Identity.Name, messageId)
        'repMessage.DataBind()
    End Sub
End Class
